home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Deutsche Edition 1
/
Deutsche Edition 1.iso
/
amok
/
011-020
/
amok11
/
trackdisksupport
/
trackdisksupport.liesmich
< prev
next >
Wrap
Text File
|
1993-11-04
|
2KB
|
76 lines
TrackDiskSupport
======================
© 1988 by Fridtjof Siebert
Nobileweg 67
D-7000 Stuttgart-40
TrackDiskSupport unterstützt die Benutzung des trackdisk.device.
`TrackDemo' ist ein Demoprogramm dazu. Es schreibt nichts auf die
eingelegten Disketten, kann also bedenkenlos durch Doppelklick gestartet
werden.
Es gibt für fast alle TrackDisk-commandos entsprechende Prozeduren. Um
sie zu benutzen muß zunächst das Device mit OpenTrackDisk() geöffnet
werden. Dabei wird die Nummer des Laufwerks (0 bis 3 für DF0: bis DF3:)
übergeben.
Wird ein Device nicht mehr benötigt, so sollte es mit CloseTrackDisk()
geschlossen werden.
Die Fehlernummern, die von den Prozeduren zurückgegeben werden, können
aus TrackDisk importiert werden.
Um Block 105 aus DF2: zu lesen gibt man folgendes ein:
FROM TrackDiskSupport IMPORT OpenTrackDisk, ReadBlock, GetDiskChange,
CloseTrackDisk;
VAR
Buffer: POINTER TO ARRAY[0..511] OF CHAR;
BEGIN
AllocMem(Buffer,SIZE(Buffer^),TRUE); (* Chip! *)
IF OpenTrackDisk(2,FALSE)=0 THEN
IF ReadBlock(2,105,Buffer,1,GetDiskChange(2))=0 THEN
(* tu etwas mit den Daten in Buffer^ *)
END;
CloseTrackDisk(2);
END;
END test.
Die `2' steht jeweils für Laufwerk DF2:. FALSE beim Öffnen der TrackDisk
verhindert das öffnen, wenn ein 5.25 Zoll Laufwerk angeschlossen ist. Die
`1' beim Lesen des Blocks gibt die Zahl der zu lesenden Blöcke an.
GetDiskChange(2) muß übergeben werden, um den Wert, der zur
Identifizierung von Diskettenwechseln benutzt wird, zu setzten. Sollen
mehrere Tracks von der gleichen Diskette gelesen werden, muß dieser Wert
in einer Variablen gespeichert werden und beim Lesen jeweils übergeben
werden.
Genaueres zu den Prozeduren steht im Definitionsmodul und im Libraries &
Devices Manual. Wem das nicht genug ist, der kann in dem Beispielprogramm
`TrackDemo' sehen, wie die Prozeduren verwendet werden.
CopyRight:
Die Prozeduren sind Public-Domain und dürfen frei von anderen
PD-Programmen importiert werden. Soll ein Programm, daß dieses Modul
importiert, kommerziell genutzt oder vertrieben werden, so ist eine
schriftliche Genehmigung von mir nötig.
Ich übernehme keinerlei Haftung für die Korrektheit und
Funktionsfähigkeit der Prozeduren.
--- Fridtjof